BBS in a Box 2/BBS in a box - Trilogy II.iso/Files/Hyper/Q-R/ResGenie™ 1.0/ResGenie™/ResGenie™.rsrc/TEXT_181_makeqtbrowser.txt

Text File | 1993-08-02 | 974 b | 26 lines

 set cursor to "cross"
  put "Drag to place your new QuickTime‚Ñ¢ browsing frame"
  wait until the mouseclick
  do put the mouseloc into start
  do put rubberbandRect(item 1 of start, item 2 of start) into where
  set cursor to watch
  do put ResText("TEXT","QT Browser", ColorAuthoringPath) into test
  set lockscreen to true
  domenu "New Button"

  if there is a bg btn "New Button" then
  do put "bg btn id" && the id of bg btn "New Button" into unique
  do set the name of  unique to "QT Browser"
  end if

  if there is a  btn "New Button" then
  do put "btn id" && the id of btn "New Button" into unique
  do set the name of  unique to "QT Browser"
  end if
  do set the rect of unique to where
  do set the script of unique to test
  do set the style of unique to rectangle
  do set the showname of unique to true
  put "Here is your new QuickTime‚Ñ¢ Browser frame"
  if the visible of window Tool is false then show Tool window at 100, 10
  choose "Browse" tool